home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / test / obstacle.g < prev    next >
Encoding:
Text File  |  1994-05-10  |  1.3 KB  |  99 lines  |  [TEXT/R*ch]
  1. (game-module "obstacle"
  2.   )
  3.  
  4. (unit-type army (image-name "soldiers"))
  5.  
  6. (unit-type wall (image-name "walltown"))
  7.  
  8. (unit-type pillbox (image-name "airbase"))
  9.  
  10. (unit-type town (image-name "town20"))
  11.  
  12. (terrain-type clear)
  13.  
  14. (add army acp-per-turn 1)
  15.  
  16. (table hit-chance (army pillbox 50))
  17.  
  18. (table damage (army pillbox 1))
  19.  
  20. (table capture-chance (army town 100))
  21.  
  22. (set synthesis-methods ())
  23.  
  24. ;;; This motivates the AI to go after the town.
  25.  
  26. (scorekeeper (do last-side-wins))
  27.  
  28. (add u* point-value 0)
  29. (add town point-value 1)
  30.  
  31. (set see-all true)
  32.  
  33. (area 20 15)
  34.  
  35. (area (terrain
  36.   "20a"
  37.   "20a"
  38.   "20a"
  39.   "20a"
  40.   "20a"
  41.   "20a"
  42.   "20a"
  43.   "20a"
  44.   "20a"
  45.   "20a"
  46.   "20a"
  47.   "20a"
  48.   "20a"
  49.   "20a"
  50.   "20a"
  51. ))
  52.  
  53. ;; Limit to two players only.
  54.  
  55. (set sides-min 2)
  56. (set sides-max 2)
  57.  
  58. ;; Two sides, no special properties needed (?).
  59.  
  60. (side 1)
  61.  
  62. (side 2)
  63.  
  64. ;;; (no player for one side?)
  65.  
  66. (town 2 7 1)
  67. (army 3 7 1)
  68.  
  69. ;; Two bases, one for each side.
  70.  
  71. (town 17 7 2)
  72.  
  73. ;; The obstacles.
  74.  
  75. (wall 11 12 2)
  76. (wall 12 11 2)
  77. (wall 13 10 2)
  78. (wall 14 9 2)
  79. (wall 14 8 2)
  80. (wall 8 7 2)
  81. (wall 14 7 2)
  82. (wall 15 6 2)
  83. (wall 16 5 2)
  84. (wall 16 4 2)
  85. (wall 16 3 2)
  86. (wall 16 2 2)
  87. (pillbox 8 11 2)
  88. (pillbox 9 10 2)
  89. (pillbox 10 9 2)
  90. (pillbox 10 8 2)
  91. (pillbox 11 8 2)
  92. (pillbox 5 7 2)
  93. (pillbox 11 7 2)
  94. (pillbox 11 6 2)
  95. (pillbox 12 6 2)
  96. (pillbox 12 5 2)
  97. (pillbox 12 4 2)
  98. (pillbox 12 3 2)
  99.